home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Swiftsoft Multimedia Tools / MMTOOL3.EXE / MMFXReg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-05-06  |  3.9 KB  |  103 lines
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Tel.: +0351-8012255                   =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 20.01.1998 - 18:00:00 $                                      =}
  24. {========================================================================}
  25. unit MMFXReg;
  26.  
  27. {$I COMPILER.INC}
  28.  
  29. {$DEFINE _PLUGIN}
  30.  
  31. Interface
  32.  
  33. Procedure Register;
  34.  
  35. Implementation
  36.  
  37. {$IFDEF WIN32}
  38.    {$R MMEFFECT.D32}
  39. {$ELSE}
  40.    {$R MMEFFECT.D16}
  41. {$ENDIF}
  42.  
  43. uses
  44.     Controls,
  45.     Classes,
  46.     DsgnIntf,
  47.     SysUtils,
  48.     MMDesign,
  49.     MMDSPObj,
  50.     MMFXGen,
  51.     MMWMixer,
  52.     MMReverb,
  53.     MMRvbDlg,
  54.     MMRvbPrp,
  55.     MMDelay,
  56.     MMPhase,
  57.     MMPhaseS,
  58.     MMFlange,
  59.     MMPitch,
  60.     MMSlow,
  61.     MMVolume
  62.     {$IFDEF _PLUGIN}
  63.     ,MMPLugIn
  64.     {$ENDIF}
  65.     ;
  66.  
  67. {=========================================================================}
  68. procedure Register;
  69. begin
  70.      RegisterComponents('MMDSP',[TMMWaveMixer,
  71.                                  TMMGenerator,
  72.                                  TMMReverbDialog,
  73.                                  TMMReverb,
  74.                                  TMMDelay,
  75.                                  TMMPhaser,
  76.                                  TMMPhaseShift,
  77.                                  TMMFlanger,
  78.                                  TMMPitch,
  79.                                  TMMSimpleLowPass,
  80.                                  TMMVolume]);
  81.  
  82.      RegisterPropertyEditor(TypeInfo(TMMDSPComponent),TMMWaveMixer,'Input1',TMMDSPComponentInput1Editor);
  83.      RegisterPropertyEditor(TypeInfo(TMMDSPComponent),TMMWaveMixer,'Input2',TMMDSPComponentInput2Editor);
  84.      RegisterPropertyEditor(TypeInfo(TMMDSPComponent),TMMWaveMixer,'Input3',TMMDSPComponentInput3Editor);
  85.      RegisterPropertyEditor(TypeInfo(TMMDSPComponent),TMMWaveMixer,'Input4',TMMDSPComponentInput4Editor);
  86.  
  87.  
  88.      RegisterPropertyEditor(TypeInfo(TMMEchoList), TMMReverb, 'Echos', TMMEchoProperty);
  89.  
  90.      RegisterComponentEditor(TMMReverb, TMMReverbEditor);
  91.  
  92.      {$IFDEF _PLUGIN}
  93.      MMPlugIn.Register;
  94.      {$ENDIF}
  95. end;
  96.  
  97. initialization
  98.     RegisterProperty(ptInput,'DSP',TMMDSPComponent,'Input1',TMMWaveMixer,DSPInpConnectCheck);
  99.     RegisterProperty(ptInput,'DSP',TMMDSPComponent,'Input2',TMMWaveMixer,DSPInpConnectCheck);
  100.     RegisterProperty(ptInput,'DSP',TMMDSPComponent,'Input3',TMMWaveMixer,DSPInpConnectCheck);
  101.     RegisterProperty(ptInput,'DSP',TMMDSPComponent,'Input4',TMMWaveMixer,DSPInpConnectCheck);
  102. end.
  103.